﻿Public Class FaaliyetGirisDetay
	Inherits Process

    Dim Bolge = Split("Lefkoşa;Girne;Mağusa;İskele;Güzelyurt;Lefke", ";")

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
                Dim i As Integer
                InitialHelp = Arguments("yil") & "/" & Arguments("ay") & " ayına ait bilgileri girin."
                Select Case Arguments("kod")
                    Case "isyerisig"
						Text = "Tescil Edilen İş/İşyeri ve Sigortalı Adetleri"
						AddLabel("") : AddLabel("İşyeri", "c;cs=2") : AddLabel("") : AddLabel("Sigortalı", "c;cs=2;nl")
						AddLabel("") : AddLabel("Açılan", "c") : AddLabel("Kapanan", "c") : AddLabel("") : AddLabel("Erkek", "c") : AddLabel("Kadın", "c;nl")
						For i = 0 To UBound(Bolge)
							AddLabel(Bolge(i)) : AddNumber("isyeria" & i, "") : AddNumber("isyerik" & i, "") : AddLabel("") : AddNumber("sigortalie" & i, "") : AddNumber("sigortalik" & i, "", "nl")
						Next
					Case "teftis"
						Text = "Teftiş Sayıları"
						AddLabel("") : AddLabel("İşyeri", "c") : AddLabel("Köy", "c") : AddLabel("Tahkikat", "c;nl")
						For i = 0 To UBound(Bolge)
							AddLabel(Bolge(i))
							AddNumber("teftisi" & i, "") : AddNumber("teftisk" & i, "") : AddNumber("teftist" & i, "", "nl")
						Next
					Case "genel"
						Text = "İş Kazası/Analık/Hastalık/İşsizlik Adetleri"
						AddLabel("") : AddLabel("İş Kazası/Meslek H.", "c;cs=2") : AddLabel("Analık", "c;cs=4") : AddLabel("Hastalık", "c;cs=2") : AddLabel("İşsizlik", "c;cs=3;nl")
						AddLabel("")
						AddLabel("Bild.", "c") : AddLabel("Tamam.", "c") : AddLabel("Bild.", "c;cs=2") : AddLabel("Tamam.", "c;cs=2")
						AddLabel("Bild.", "c") : AddLabel("Tamam.", "c") : AddLabel("Bild.", "c") : AddLabel("Dvm e.", "c") : AddLabel("Tamam.", "c;nl")
						AddLabel("") : AddLabel("") : AddLabel("")
						AddLabel("Kadın sig.", "c") : AddLabel("Sig. karısı", "c") : AddLabel("Kadın sig.", "c") : AddLabel("Sig. karısı", "c;nl")
						For i = 0 To UBound(Bolge)
							AddLabel(Bolge(i))
							AddNumber("iskazasib" & i, "", "width=6") : AddNumber("iskazasit" & i, "", "width=6")
							AddNumber("analik1b" & i, "", "width=6") : AddNumber("analik2b" & i, "", "width=6") : AddNumber("analik1t" & i, "", "width=6") : AddNumber("analik2t" & i, "", "width=6")
							AddNumber("hastalikb" & i, "", "width=6") : AddNumber("hastalikt" & i, "", "width=6")
							AddNumber("issizlikb" & i, "", "width=6") : AddNumber("issizlikd" & i, "", "width=6") : AddNumber("issizlikt" & i, "", "width=6;nl")
						Next
					Case "tahsilat"
						Text = "Tahsilatlar"
						For i = 0 To UBound(Bolge)
							AddField("Tutar[name=tahsilat" & i & ";label=" & Bolge(i) & "]", "nl")
						Next
						AddField("Tutar[name=tahdevlet;label=Özel Uygulamalar (Devlet Hissesi)]", "nl")
					Case "kvodeme"
						Text = "Kısa Vadeli Ödemeler"
						AddField("Tutar[name=kvilacecza;label=Eczacılık Dairesine Yapılan Ödemeler]", "nl")
						AddField("Tutar[name=kvilachak;label=Hak Sahiplerine Yapılan Ödemeler]", "nl")
						AddField("Tutar[name=kvilacozelecza;label=Özel Eczanelere Yapılan Ödemeler]", "nl")
						NewLine()
						AddLabel("")
						NewLine()
						For i = 0 To UBound(Bolge)
							AddField("Tutar[name=kvbolge" & i & ";label=" & Bolge(i) & " Bölgesi Ödemeleri]", "nl")
						Next
					Case "uvodeme"
						Text = "Uzun Vadeli Ödemeler"
						AddLabel("") : AddLabel("Fon", "c") : AddLabel("Devlet", "c;nl")
						Dim Items = Split("Malüllük;Yaşlılık;Ölüm", ";")
						For i = 0 To 2
							AddLabel(Items(i) & " Ödemeleri") : AddField("Tutar[name=uvmyo0" & i & ";label=]") : AddField("Tutar[name=uvmyo1" & i & ";label=]", "nl")
						Next
						AddLabel("") : AddLabel("İş Kazası", "c;cs=2") : AddLabel("Meslek Hastalığı", "c;cs=2;nl")
						AddLabel("") : AddLabel("Sür.İş.G.", "c") : AddLabel("Ölüm", "c") : AddLabel("Sür.İş.G.", "c") : AddLabel("Ölüm", "c;nl")
						Items = Split("Vaka Sayısı;Hak Sahibi Sayısı;Ödeme Miktarı", ";")
						For i = 0 To 2
							AddLabel(Items(i))
							Dim ControlType As String = If(i = 2, "Tutar", "Sayi")
							AddField(ControlType & "[name=uvikmh0" & i & ";label=]")
							AddField(ControlType & "[name=uvikmh1" & i & ";label=]")
							AddField(ControlType & "[name=uvikmh2" & i & ";label=]")
							AddField(ControlType & "[name=uvikmh3" & i & ";label=]", "nl")
						Next
					Case "yonetim"
						Text = "Yönetim Giderleri"
						AddField("Tutar[name=yonetim;label=Yönetim Giderleri]", "nl")
					Case "personel"
						Text = "Personel Bilgileri"
						AddField("Sayi[name=peryiladet;label=Yıllık izin kullanan personel]")
						AddField("Sayi[name=peryiltoplam;label=Gün sayısı]", "nl;decimaldigits=1")
						AddField("Sayi[name=perhasadet;label=Hastalık izni kullanan personel]")
						AddField("Sayi[name=perhastoplam;label=Gün sayısı]", "nl;decimaldigits=1")
						AddField("Sayi[name=permazadet;label=Mazaret izni kullanan personel]")
						AddField("Sayi[name=permaztoplam;label=Gün sayısı]", "nl;decimaldigits=1")
						AddLabel("") : NewLine()
						AddField("Sayi[name=pergirenevrak;label=Gelen evrak sayısı]", "nl")
						AddField("Sayi[name=percikanevrak;label=Çıkan evrak sayısı]", "nl")
						AddLabel("") : NewLine()
						AddField("Sayi[name=perkadet;label=Kadrolu personel sayısı]", "nl")
						AddField("Sayi[name=peraadet;label=Aday kadrolu personel sayısı]", "nl")
						AddField("Sayi[name=pereadet;label=Ek kadrodaki personel sayısı]", "nl")
						AddField("Sayi[name=pertadet;label=Torba kadrolu personel sayısı]", "nl")
						AddField("Sayi[name=periadet;label=İşçi statülü personel sayısı]", "nl")
				End Select
            Case EventType.Shown
                For Each Item As Object In Inputs
                    Rs = Istatistik.Faaliyet.Oku(Remote, Arguments("yil"), Arguments("ay"), Item)
                    If Not Rs.EOF Then Input(Item) = Trim(Val(Rs("deger"))) Else Input(Item) = 0
                Next
                Buttons.Show("Save")
            Case EventType.Save
                For Each Item As Object In Inputs
                    Istatistik.Faaliyet.Kaydet(Remote, Arguments("yil"), Arguments("ay"), Item, Val(Input(Item)))
                Next
                Info("Değerler kaydedilmiştir.")
                Close()
        End Select
    End Sub

End Class
